home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / U. Mass AI & LISP Tools / MODULES / SM / SM-Compile.lisp next >
Encoding:
Text File  |  1990-06-22  |  881 b   |  32 lines  |  [TEXT/CCL ]
  1. ;;; SM compilation and testing.  Dan Suthers.
  2.  
  3. (in-package :SM)
  4.  
  5. (defun PATH-TO (file) 
  6.   (concatenate 'string 
  7.                #+:CCL "ccl;MODULES:SM:"
  8.                #+HP  "$tee/modules/sm/"
  9.                #+VAX "cai$disk:[suthers.lisp.modules.sm]"
  10.                #+:TI "suthers.modules;"
  11.                #-(or :CCL HP VAX :TI) ""
  12.                file))
  13.  
  14. (defun LISP-EXTENSION (file)
  15.   (concatenate 'string 
  16.                file
  17.                #+HP ".l"
  18.                #-HP ".lisp"))
  19.  
  20. (format T "~&Dribbling to ~A ..." (path-to "test.txt"))
  21. (dribble (path-to "test.txt"))
  22.  
  23. (format T "~&Compiling ~A ..." (path-to (lisp-extension "SM")))
  24. (compile-file (path-to (lisp-extension "SM")))
  25.  
  26. (format T "~&Loading ~A ..." (path-to "SM"))
  27. (load (path-to "SM"))
  28.  
  29. (format T "~&Loading Tests in ~A ..." (path-to (lisp-extension "sm-test")))
  30. (load (path-to (lisp-extension "sm-test")))
  31.  
  32. (dribble)